home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
games1
/
fsdcod.zip
/
DY1.DES
< prev
next >
Wrap
Text File
|
1993-02-05
|
2KB
|
96 lines
; .DY1 DESCRIPTION FILE
;
2 I #file_length:_|,
2 I file_type:_
2 X #scenery_name_at_|,
2 X@ pattern_definitions_at_
2 I #next_pattern_number:_|,
2 X@ pattern_codes_at:_
0 #R A=V set var A to first pattern code offset
31 S #mode_name:_
0 #H ---------------------
0 #H _PATTERN_DEFINITIONS_
:PAT_LOOP
0 #H ---------------------
2 I #pattern_no.:_|,
2 I model:_
2 X@ #pattern_code_at:_|,
2 I code_length:_|_bytes
2 I #begin_after_pattern_
1 E begin_|immediately#after_patt._starts#after_patt._takes_off#after_patt._lands#after_patt._parks
1 E _|inactive#active
1 E #end_action:_|start_over#park#disappear
1 O _display_before_start:_
4 D #
30 S #pattern_name:_
>PAT_LOOP #I A!W jump back if 1st patt. code offset != curr. offset
0 #H ---------------------
0 #H ____PATTERN_CODES
0 #H ---------------------
;
; -- RECORD 00h INITIAL --
;
0 -R #
4 CX |E
4 JZ |m
4 CY |N
2 gS |p
2 gT |b
2 GU |d
1 X
;
; -- RECORD 02h SET CODE --
;
2 -R #SET
2 xA code_| declare value as signed to allow for signed comparisons later
2 xB to_|
; a sort of switch construct follows: test for shadow var
>plane #I A!-2 =FFFE
0 #T _(set_shadow_to_
>visib #I B!0
0 #T invisible)
>02nxt #J
:visib
0 #T visible)
>02nxt #J
:plane test for plane code
>gear #I A!-3 =FFFC
0 #T _(set_plane_to_
>landed #I B!0
0 #T flying)
>02nxt #J
:landed
0 #T landed)
>02nxt #J
:gear test for gear code
>02nxt #I A!-5
0 #T _(set_gear_to_
>up #I B!4
0 #T down)
>02nxt #J
:up
0 #T up)
:02nxt
; end of switch
;
; -- RECORD 04h END OF PATTERN --
;
4 -R #End_Of_Pattern
0 #H --------------------
;
; -- RECORD 06h LAND/TAKE OFF --
;
6 -R #
1 E |??#??#Take_off#Land
;
; -- RECORD FFh POSITION --
;
255 -R #
4 CX |E
4 JZ |m
4 CY |N
2 gS |p
2 gT |b
2 GU |d
2 I |t